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A  HIGHLY  PORTABLE  DATA  ACQUISITION  SYSTEM  FOR 
TOTAL  MAGNETICS  FIELD  MEASUREMENTS 


I .  INTRODUCTION 

The  Acoustic  Media  Characterization  Branch  of  the  Acoustics  Division 
of  NRL  has  since  1971  conducted  magnetic  field  studies  for  the  Navy  in 
many  areas  of  the  world.  Much  of  this  work  has  been  accomplished  using 
aircraft  to  conduct  the  magnetic  studies.  The  resultant  data  has  been 
compiled  into  magnetic  anomaly  charts  of  the  oceans  of  the  world.  The 
information  is  utilized  by  DOD  for  interpretation  of  the  tectonic  history 
of  the  area.  These  interpretations  utilize  state  of  the  art  theories  of 
sea  floor  spreading  and  plate  tectonics. 

Many  of  these  magnetic  studies  are  performed  on  aircraft  and  ships 
of  opportunity  or  "piggybacking"  other  experiments.  During  some  of  these 
data  gathering  experiments  it  is  inappropriate  or  impractical  to  place  a 
mini-computer  system  aboard  the  aircraft  due  to  size,  weight  or  the  re¬ 
sources  required  to  install,  maintain  and  operate  a  computer  system. 

NRL  has  developed  a  highly  portable,  compact,  lightweight  and  easy 
to  operate  data  acquisition  system  for  acquiring  magnetics  field  data 
and  navigational  position  information.  The  portable  magnetics  data  ac¬ 
quisition  system  has  been  used  successfully  yielding  results  comparable 
to  the  mini-computer  system. 

II.  PORTABLE  DATA  ACQUISITION  SYSTEM 

The  portable  data  acquisition  system  is  based  around  a  Hewlett- 
Packard  HP264X  intelligent  terminal.  Figure  1  is  a  photograph  of  the 
terminal.  The  feature  of  the  terminal  that  makes  it  intelligent  is  the 
programmable  microprocessor  internal  to  the  terminal.  Also,  all  of  the 
necessary  components  of  a  computer  such  as  internal  storage,  external 
storage  and  interface  capability  to  peripherals  provide  the  capability 
of  making  the  terminal  a  data  acquisition  system. 

The  HP264X  was  selected  as  the  data  acquisition  system  because  it 
had  all  of  the  salient  features  required  such  as,  programmable  processor, 
internal  memory,  external  cassette  storage,  parallel  and  serial  inter¬ 
facing  capability,  portability  and  software  development  tools.  In 
addition,  several  of  these  units  are  available  at  NRL  and  being  used  as 
computer  terminals.  In  fact,  the  HP264X  can  be  considered  a  well  packag- 
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ed,  self-contained  microcomputer. 

A  functional  diagram  of  the  portable  terminal  magnetics  field  data 
acquisition  system  is  shown  in  Figure  2.  The  system  consists  of  a  Geo¬ 
metries  Model  G801/803A  magnetometer,  a  CHRONO-LOG  Series  70000  Time 
Code  Generator  and  a  NRL  designed  Litton  Interface  that  obtains  aircraft 
position  information  from  the  aircraft  Litton  Model  72  Inertial  Navigator. 
The  components  of  the  system  are  described  below. 

1.  Terminal  Electronic  Circuit  Boards 


An  interior  view  of  the  terminal  is  shown  in  Figure  3.  There 
are  fifteen  circuit  boards  that  can  be  inserted  directly  into  the  term¬ 
inal.  Ten  of  these  boards  are  required  for  control  of  the  terminal, 
with  the  microprocessor  residing  on  one  of  these  boards.  To  use  the 
HP264X  as  a  data  acquisition  device  two  high  density  HP13297A-003  32K 
Byte  RAM  (Random  Access  Memory)  Boards  are  required.  The  strapping  con¬ 
figuration  of  these  boards  are  given  in  Table  1.  This  memory  is  used 
for  display,  programs,  temporary  data  storage  and  assembling  and  debugg¬ 
ing  programs.  The  HP264X  in  this  configuration  leaves  five  empty  slots 
for  interfacing  to  external  sensors. 

2.  I/O  Terminal  Interfaces 


The  HP13255  Terminal  Duplex  Register  Board  described  in  Refer¬ 
ence  1  was  selected  for  interfacing  with  the  magnetometer,  digital  clock 
and  Litton  Inertial  Navigator  Interface.  All  of  these  devices  provide 
Binary  Coded  Decimal  (BCD)  outputs  at  TTL  logic  levels.  The  Duplex 
Register  Board  contains  8  data  receiving  lines  and  8  status  lines.  It 
was  recognized  that  the  8  status  lines  could  be  used  for  data  input  as 
well  as  the  8  data  lines  resulting  in  16  data  lines  for  input.  The  po¬ 
larity  of  the  status  lines  on  the  interface  is  reversed  from  the  data 
lines  except  for  bits  zero  and  one.  By  using  the  status  lines  the  input 
capacity  was  increased  from  five  8  bit  words  to  five  16  bit  words,  there¬ 
by  doubling  the  data  acquisition  capacity  of  the  terminal.  Also,  by  us¬ 
ing  the  status  lines  the  16  bit  four  character  BCD  output  of  the  magne¬ 
tometer  and  Litton  Navigator  Interface  was  fully  compatible.  The  pro¬ 
blem  of  polarity  was  handled  with  software  by  masking  the  two  status  bits 
of  opposite  polarity  complementing  the  remainder  and  adding  the  two  bits 
to  the  remainder  to  reform  the  byte. 

3.  External  Storage 

The  HP264X  Terminal  has  two  cassette  drive  units  mounted  below 
the  display.  Each  cassette  is  capable  of  storing  110K  Bytes  of  inform¬ 
ation.  The  information  stored  on  these  cassettes  are  source,  object, 
assembler  and  debugger  programs  and  the  data  acquired  from  the  magnetics 
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data  acquisition  system.  The  cassettes  can  be  operated  using  functional 
keys  from  the  keyboard  or  under  program  control.  Both  ASCII  and  binary 
tapes  can  be  read  and  written  by  the  terminal. 

4.  Litton  Interface 

The  interface  between  the  Litton  Inertial  Navigator  and  the 
data  acquisition  system  was  specially  designed  and  built  at  NRL.  The 
Litton  Navigator  sequentially  outputs  inertial  navigation  information 
on  a  continuous  basis.  The  function  of  the  interface  is  to  service  a 
request  for  data  from  the  data  acquisition  system.  Upon  request  from 
the  controller  the  interface  obtains  and  stores  latitude,  longitude 
and  heading  information.  After  acquiring  this  information  the  interface 
interrupts  the  terminal  data  acquisition  system.  Upon  receiving  the  in¬ 
terrupt  the  terminal  goes  through  a  "handshake"  sequence  with  the  inter¬ 
face  three  times  to  acquire  the  latitude,  longitude  and  heading  which 
is  sequentially  multiplexed  to  the  output  lines  of  the  interface. 

The  interface  is  connected  to  the  terminal  using  two  duplex 
boards.  Two  boards  are  required  since  eight  BCD  characters  form  a  posi¬ 
tion  word.  The  terminal  I/O  board  addresses  of  the  four  most  significant 
characters  and  the  four  least  significant  characters  are  given  in  Table 
2.  The  addresses  are  accomplished  by  configuring  jumpers  at  appropriate 
locations  on  the  duplex  board. 

5 .  Magnetometer 

The  magnetometer  measures  the  magnetic  field  intensity  at 
either  preset  or  continuous  intervals.  Five  BCD  TTL  compatible  digital 
characters  are  output  through  a  connector  on  the  back  of  the  unit  to 
the  terminal  and  also  output  to  the  display  of  the  magnetometer.  Since 
each  terminal  interface  is  capable  of  accepting  four  BCD  characters  two 
interfaces  are  required.  The  most  significant  character  from  the  magne¬ 
tometer  is  interfaced  to  one  eight  bit  duplex  board  while  the  four  re¬ 
maining  characters  are  interfaced  to  a  second  duplex  board  in  the  termin¬ 
al.  The  I/O  strapping  configurations  are  given  in  Table  2.  The  strapp¬ 
ing  consists  of  assigning  the  board  an  address  that  can  be  read  by  the 
program.  The  addresses  of  each  respective  board  is  given  in  Table  2. 

6.  Digital  Clock 

The  function  of  the  clock  is  to  provide  digital  time  in  order 
to  be  able  to  correlate  and  interpolate  data  when  future  processing  is 
performed.  The  clock  provides  in  BCD  format  at  TTL  signal  levels  day 
of  year,  hours,  minutes  and  seconds.  In  order  to  conserve  input  capacity, 
minutes  and  seconds  consisting  of  four  BCD  characters  were  interfaced  to 
the  terminal  using  one  duplex  board.  Day  and  hour  are  hand  recorded  on 
the  cassette  cartridge  and  time  information  is  reconstructed  when 
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further  processing  is  performed.  The  address  of  the  terminal  interface 
board  is  given  in  Table  2.  Also,  it  should  be  noted  that  there  are 
several  manufacturers  of  digital  clocks  which  can  be  used  and  have  been 
used  since  they  function  similarly  to  the  CHRONO-LOG. 

III.  SOFTWARE  DESCRIPTION 


Programs  for  the  intelligent  terminal  can  be  developed  by  preparing 
the  source  program  and  using  the  assembler  available  on  the  terminal  or 
by  using  an  HP1000  mini-computer  system  to  prepare  the  program  and  pro¬ 
vide  a  cross  assembly  for  loading  into  the  terminal.  Since  the  debugging 
of  the  program  can  only  be  performed  on  the  terminal  the  program  for  the 
terminal  magnetics  system  was  developed  on  the  terminal. 

The  terminal  uses  a  Intel  8080  compatible  microprocessor.  The 
microprocessor  differences  are  in  the  way  I/O  is  managed.  Therefore, 
the  program  with  the  exception  of  I/O  is  Intel  8080  compatible.  The 
terminal  has  many  software  subroutines  stored  in  Read  Only  Memory  (RDM) 
that  can  be  used  by  the  program  by  addressing  the  starting  location  of 
the  subroutines.  These  subroutines,  since  they  are  stored  in  ROMs  can 
not  be  altered.  The  routine  PUTIO  for  performing  I/O  to  the  terminal 
display  and  cartridge  tape  units  was  used.  This  routine  will  write  ASCII 
records  to  the  display  and  either  tape  drive  depending  upon  the  device 
specified.  The  terminal  magnetics  program  has  been  programmed  to  use 
only  the  right  tape  drive  to  store  data. 

The  terminal  has  a  10  millisecond  internal  clock.  The  clock  is 
used  to  schedule  the  magnetics  program  by  storing  the  number  of  10  milli¬ 
second  intervals  required  in  a  location  called  TIMER  which  the  terminal 
executive  system  decrements.  Upon  decrementing  the  location  to  zero  the 
executive  system  software  transfers  control  to  a  predetermined  location. 
The  starting  address  of  the  user  program  is  stored  at  this  location  which 
in  turn  permits  the  scheduling  of  subroutines.  The  magnetics  data  ac¬ 
quisition  program  was  scheduled  to  execute  every  three  seconds.  This  re¬ 
quired  the  storing  of  100  in  the  location  TIMER  which  equates  to  one 
second  and  executing  the  timer  program  three  times.  This  was  required 
since  the  microprocessor  is  organized  around  an  8  bit  word  which  has  127 
as  its  largest  positive  number. 

The  terminal  data  acquisition  program  is  entered  by  transferring 
control  from  the  terminal  executive  program  to  the  program  CHTIMO.  The 
function  of  CHTIMO  is  to  schedule  the  data  acquisition  program  to  run  at 
three  second  intervals.  This  is  accomplished  by  checking  for  the  TIMER 
location  to  go  to  zero  and  the  number  of  repetitive  seconds  to  go  neg¬ 
ative.  When  the  repetitive  seconds  have  expired  software  control  trans¬ 
fers  to  the  main  program  CONTRL,  otherwise  a  return  to  the  terminal  exe¬ 
cutive  program  is  executed. 
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The  program  CONTRL  is  used  to  call  four  major  subroutines,  namely, 
INIT2,  INPUT,  PROCES  and  OUTPUT.  These  four  programs  are  discussed  below. 

1.  Subroutine  INIT2 


The  program  INIT2  stores  100  in  the  location  TIMER  which 
allows  the  terminal  executive  system  to  decrement  the  location  TIMER  100 
times,  which  takes  one  second  before  going  to  zero.  Also,  the  program 
sets  the  repeat  factor  of  this  program  at  two  in  order  to  obtain  three 
second  intervals  between  the  magnetics  program  execution.  The  program 
INIT2  is  called  every  time  the  program  CHTIMO  calls  the  program  CNTRL. 

2 .  Subroutine  INPUT 


The  function  of  subroutine  INPUT  is  to  obtain  the  data  from 
the  external  sensors  and  devices.  It  accomplishes  this  task  by  request¬ 
ing  data  from  the  devices  using  a  memory  mapped  I/O  scheme.  All  of  the 
five  interface  boards  in  the  terminal  have  a  unique  address  determined 
by  the  strapping  configuration  on  the  board  which  are  given  in  Table  2. 
Under  program  control  a  request  is  made  of  the  sensor,  or  sensor  inter¬ 
face  to  send  data.  The  data  is  buffered  into  the  terminal  interface  I/O 
board.  By  addressing  the  terminal  interface  board  with  its  unique  ad¬ 
dress  the  data  can  be  handled  by  the  microprocessor  under  program  control. 

In  the  case  of  the  Litton  navigation  information  the  process 
is  repeated  three  times  since  the  data  is  multiplexed  out  using  the  same 
two  interface  boards  in  order  to  obtain  latitude,  longitude  and  heading 
of  the  aircraft. 

3.  Subroutine  PROCES 


The  program  PROCES  is  used  to  manipulate  the  data  into  a  for¬ 
mat  suitable  for  display  and  storage  on  cassette  tapes.  The  first  step 
in  the  process  of  preparing  the  data  for  output  is  to  convert  the  BCD 
characters  to  an  ASCII  format.  The  status  byte  consisting  of  bits  zero, 
and  one  being  of  opposite  polarity  to  the  remaining  word  must  be  com¬ 
plemented  and  the  word  reformed.  Following  all  the  status  words  and 
data  words  being  in  the  same  BCD  format,  the  data  is  manipulated  by  an 
algorithm  that  replaces  the  BCD  character  with  its  equivalent  ASCII 
character. 

In  the  case  of  latitude  and  longitude  the  first  bit  of  the  status 
byte  is  masked  and  tested  for  0  or  1,  which  determines  North  or  South 
for  latitude  and  East  and  West  for  longitude. 

4.  Subroutine  OUTPUT  ' 

In  order  to  output  the  data  to  the  display  for  monitoring  and 
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the  cartridge  tape  for  storage  a  terminal  executive  system  routine  called 
PUTIO  is  utilized.  The  program  moves  the  data  in  ASCII  format  to  a 
terminal  system  output  buffer  and  PUTIO  is  called.  PUTIO  places  the  data 
on  the  display  and  the  right  cartridge  tape. 

IV.  PROGRAM  DEVELOPMENT 

The  source  program  is  written  in  a  compatible  INTEL  8080  language 
with  the  only  exception  being  the  I/O  operations .  These  I/O  operations 
are  accomplished  using  programs  stored  in  a  terminal  ROM. 

1.  Preparing  the  Program 

For  assembling  and  loading,  the  source  and  binary  programs  must 
reside  on  cartridge  tape.  The  source  program  can  be  placed  on  the  tape 
by  entering  the  source  code  into  the  terminal  display  memory  through  the 
terminal  keyboard.  Once  in  the  display  memory  the  source  code  is  trans¬ 
ferred  to  tape  using  the  terminal  function  keys  which  provide  the  cap¬ 
ability  to  transfer  data  between  the  terminal  and  other  devices.  An 
alternate  method  of  obtaining  the  source  code  on  tape  is  by  keying  the 
program  into  a  file  using  the  HP1000  mini-computer  system.  The  file  can 
then  be  edited  and  "dumped"  to  cartridge  tape  in  ASCII  format. 

2.  Assembling  the  Program 

The  HP13290B  Debugger /Assembler  is  a  commercially  available 
product  from  Hewlett-Packard,  and  it  resides  on  cartridge  tape.  By 
placing  the  tape  in  the  left  drive  of  the  terminal  it  is  loaded  using 
the  function  keys  on  the  terminal.  Once  having  loaded  the  assembler  the 
source  program  which  resides  on  tape  is  placed  on  the  left  drive  and  a 
blank  tape  to  receive  the  assembled  code  in  the  right  drive.  After  hav¬ 
ing  successfully  completed  the  assembly  the  right  tape  with  the  assembled 
code  is  then  placed  in  the  left  tape  drive  and  under  keyboard  command  is 
loaded  into  the  terminal.  At  this  point  the  program  is  ready  for  exe¬ 
cution.  Operating  instructions  for  the  magnetics  data  acquisition  system 
are  given  in  Appendix  II.  An  alternate  manner  of  assembling  the  program 
is  to  use  the  cross-compiler  available  on  the  HP1000  mini-computer  system. 
The  assembled  program  is  stored  on  tape  in  the  same  format  as  the  assembly 
on  the  terminal.  Refer  to  Reference  2  for  specific  instruction  on  using 
the  HP13290B  Debugger/Assembler. 

V.  RESULTS 

The  major  benefits  of  the  Magnetic  Field  Terminal  Data  Acquisition 
System  is  its  compactness  (all  data  acquisition  components  are  integrat¬ 
ed  into  the  terminal) ,  weight  of  45  pounds  and  reliability.  This  cam  be 
compared  with  the  mini-computer  system  which  resides  in  a  56  inch  equip- 


ment  rack  which  weighs  approximately  600  pounds. 

Experiments  collecting  magnetic  field  data  have  shown  the  accuracy 
of  the  terminal  data  acquisition  system  is  identical  to  the  accuracy  of 
the  mini-computer  system.  However,  when  the  mini-computer  system  is 
utilized,  the  magnetics  data  can  be  processed  to  completion,  whereas, 
the  data  stored  by  the  terminal  data  acquisition  system  must  be  further 
processed  by  the  mini-computer  at  some  future  time.  Additionally,  the 
storage  capacity  of  the  mini-computer  system  is  far  greater  than  the 
terminal  resulting  in  the  mini-computer  being  operated  for  much  longer 
periods  of  time  before  the  data  must  be  stored  in  another  manner  such  as 
nine  track  800bpi  magnetic  tape. 

The  terminal  Magnetics  Field  Data  Acquisition  System  has  been  proven 
to  be  a  viable  alternative  to  the  mini-computer  when  the  mini-computer 
system  is  inappropriate.  The  terminal  systems  have  been  utilized  to 
acquire  and  process  data  for  Airborne  Expendable  Bathythermograph  (AXBT) 
experiments  and  recording  the  environment  during  acoustic  studies  as 
well  as  magnetic  field  experiments. 
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Fig.  2  —  Functional  Block  Diagram  of  Terminal  Magnetics 
Data  Acquisition  System 
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Fig.  3  —  Interior  View  of  HP264X 
Intelligent  Terminal 


TABLE  1 

SWITCH 

POSITIONS  FOR  HP13297A- 

BYTE  RAM 

SWITCH 

BOARD  1 

INH 

OPEN 

32K 

OPEN 

16K 

OPEN 

8K 

OPEN 

4K. 

OPEN 

INH 

OPEN 

32K 

OPEN 

16K 

CLOSED 

8K. 

OPEN 

4K 

OPEN 

R.M 

OPEN 

RAM 

OPEN 

R.M 

OPEN 

RAM 

OPEN 

Ml 

CLOSED 

•  M2 

OPEN 

.M3 

OPEN 

FST 

OPEN 

RPT 

OPEN 

WPT 

OPEN 

•003  32K 


BOARD  2 

OPEN 

CLOSED 

OPEN 

OPEN 

OPEN 

OPEN 

CLOSED 

CLOSED 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

CLOSED 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 
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.PROGRAM  TO  ACQUIRE  MAGNETICS  DATA , PREP ARED  FOR  ASCENSION  12/04/79 
ALTIO  EQU  20B  (DEFINES  PROGRAM  AS  ALTERNATE  I/O  DRIVER 

TIMER  EQU  176147Q  .TIME  OUT  COUNTER 

PUTIO  EQU  4199H  * SUBROUTINE  TO  OUTPUT  DATA  IN  ASCII  FMT 

OUTDEV  EQU  0FF4DH  (SPECIFIES  OUTPUT  DEVICE 

GTIOBO  EQU  3D1BH  ( SYSTEM  SUBROUTINE  TO  GET  AN  I/O  BUFFER 

GETPTR  EQU  3D46H  i SYSTEM  BUFFER  ADDRESS 

XFRLIM  EQU  0FF47H  (SPECIES  THE  NUMBER  OF  CHAR  FOR  OUTPUT 

INDVM  EQU  106001Q  ; ADDRESS  TO  INPUT  DATA  OF  MSCHARS  MAGGIE 

INSTAD  EQU  106000Q  j ADDRESS  TO  INPUT  STATUS  OF  MSCHARS  MAGGIE 

INITD  EQU  106007Q  > SETS  IN  FF  ON  MSCHARS  MAGGIE  I/O  BOARD 

RSTDVM  EQU  10600SQ  ; RESETS  IN  FF  ON  MSCHARS  MAGGIE  I/O  BOARD 

STOUTD  EQU  106006Q  (SETS  OUT  FF  ON  MSCHARS  MAGGIE  I/O  BOARD 

RSOUTD  EQU  106004Q  ; RESETS  OUT  FF  ON  MSCHARS  MAGGIE  I/O  BOARD 

INCLK  EQU  103001Q  ; ADDRESS  TO  INPUT  DATA ( SECONDS)  OF  CLOCK 

INSTAC  EQU  103000Q  (ADDRESS  TO  INPUT  STATUS(MIN)  OF  CLOCK 

INITC  EQU  103007Q  (SETS  IN  FF  ON  CLOCK  I/O  BOARD 

RSTCLK  EQU  10300SQ  (RESETS  IN  FF  ON  CLOCK  I/O  BOARD 

STOUTC  EQU  1 030 OSQ  > SETS  OUT  FF  ON  CLOCK  I/O  BOARD 

RSOUTC  EQU  103004Q  (RESETS  OUT  FF  ON  CLOCK  I/O  BOARD 

INMAG  EQU  104001Q  > ADDRESS  TO  INPUT  DATA  OF  LSCHARS  MAGGIE 

INSTAM  EQU  104000Q  , ADDRESS  TO  INPUT  STATUS  OF  LSCHARS  MAGGIE 

INITM  EQU  104007Q  (SETS  IN  FF  ON  LSCHARS  MAGGIE  I/O  BOARD 

RSTMAG  EQU  104005Q  .RESETS  IN  FF  ON  LSCHARS  MAGGIE  I/O  BOARD 

STOUTM  EQU  104006Q  (SETS  OUT  FF  ON  LSCHARS  MAGGIE  I/O  BOARD 

RSOUTM  EQU  104004Q  j RESETS  OUT  FF  ON  LSCHARS  MAGGIE  I/O  BOARD 

INLIT  EQU  1 0500 IQ  ( ADDRESS  TO  INPUT  DATA  LSCHARS  LITTON  I/O  BD 

INSTAL  EQU  10S0Q0Q  > ADDRESS  TO  INPUT  STATUS  LSCHARS  LITTON  I/O  BD 

INITL  EQU  10S007Q  >SETS  IN  FF  ON  LSCHARS  LITTON  I/O  BOARD 

RSTLIT  EQU  10500SQ  (RESETS  IN  FF  ON  LSCHARS  LITTON  I/O  BOARD 

STOUTL  EQU  iOSOO&Q  (SETS  OUT  FF  ON  LSCHARS  LITTON  I/O  BOARD 

RSOUTL  EQU  105004Q  (RESETS  OUT  FF  ON  LSCHARS  LITTON  I/O  BOARD 

CHKFF  EQU  10S003Q  > ADDRESS  TO  READ  FLAG  ON  LSCHARS  LITTON  I/O  BD 

INLIT1  EQU  1 0200 IQ  > ADDRESS  TO  INPUT  DATA  ON  MSCHARS  LITTON  I/O  BD 

INSTL1  EQU  102000Q  > ADDRESS  TO  INPUT  STATUS  ON  MSCHARS  LITTON  I/O  BD 

INITL1  EQU  102007Q  (SETS  IN  FF  ON  MSCHARS  LITTON  I/O  BOARD 

RSTLT1  EQU  10200SQ  (RESETS  IN  FF  ON  MSCHARS  LITTON  I/O  BOARD 

STOTU  EQU  102006Q  (SETS  OUT  FF  ON  MSCHARS  LITTON  I/O  BOARD 

RSOTL1  EQU  102004Q  (RESETS  OUT  FF  ON  MSCHARS  LITTON  I/O  BD 

INFF  EQU  80H  (MASK  TO  CHECK  RESET  STATUS  ON  LSCHARS  LITTON  BO 

MASK1  EQU  17Q  (MASKS  FOUR  LSBITS,USED  IN  BCD  TO  ASCII  ROUTINE 

MASK 4  EQU  3FH  (MASKS  MSBITS  OF  DATA  WORD. USED  IN  TIME  ROUTINE 

2ER03  EQU  374Q  (MASKS  6  MSBITS  OF  STATUS  WORD, USED  IN  REVSTA 

THREE  EQU  3Q  (MASKS  2  LSBITS  OF  STATUS  WORD,USED  IN  REVSTA 

MASKC  EQU  60Q  (MASKS  HOUR  BIT  IN  TIME  ROUTINE 


RETURN 


INPUT 


GETLIT 


AGNLIT 


SECTORS 

ORG 

60  0  OH 

DB 

SOH 

DB 

70H 

JMP 

INIT2 

JMP 

INIT2 

JMP 

RETURN 

JMP 

MONIT 

JMP 

INPUT 

JMP 

OUTPUT 

JMP 

CONTRL 

JMP 

RETURN 

JMP 

CHTIMO 

EQU 

* 

RET 

-IE  DATA 

EQU 

* 

LDA 

INITD 

LDA 

RSTDVM 

LDA 

INSTAD 

ST  A 

STAT02 

LDA 

INDUM 

ST  A 

DATA02 

LDA 

INITC 

LDA 

RSTCLK 

LDA 

INSTAC 

STA 

ST AT 01 

LDA 

INCLK 

STA 

DATA01 

CALL 

TIMBIT 

LDA 

INITM 

LDA 

RSTMAG 

LDA 

INSTAM 

STA 

STAT03 

LDA 

INMAG 

STA 

DAT  A03 

EQU 

% 

PUSH 

B 

PUSH 

D 

LXI 

B.STAT04 

LXI 

D , DATA04 

CALL 

AGNLIT 

CALL 

AGNLIT 

CALL 

AGNLIT 

CALL 

AGNLIT 

POP 

D 

POP 

B 

CALL 

NSEU 

RET 

EQU 

* 

LDA 

INITL1 

LDA 

INITL 

LDA 

RSTLT1 

LDA 

INSTL1 

STAX 

B 

I  NX 

B 

LDA 

INSTAL 

STAX 

B 

INX 

B 

LDA 

INLIT1 

STAX 

D 

INX 

D 

LDA 

INLIT 

STAX 

D 

•ABSOLUTE  STARTING  ADDRESS  IN  HEX 
> ALTERNATE  I/O  CODE  PRESENT 
iCHECK  FOR  CORRECT  LOCATION 
•INITIALIZATION  FROM  RESET 
i INITIALIZATION  FROM  PROGRAM 
i INTERRUPT  NOT  USED, RETURN 
, MONITOR  ROUTINE  USED  TO  DECREMENT  TIME 
; DATA  INPUT  ROUTINE 
jDATA  OUTPUT  ROUTINE 

; ROUTINE  TO  CONTROL  MAGNETOMETER  PROGRAM 
i  STATUS  NOT  USED  ,RETURN 

iSTART  ADDRESS  OF  PROGRAM , CHECK  FOR  TIMEOUT 
RETURN  TO  TERMINAL  EXEC  WAIT  LOOP 


; SET  IN  FF  ON  MS  MAGGIE  BYTE  I/O  BD 
iRESET  IN  FF  ON  MS  BYTE  MAGGIE  I/O  BD, CAPTURE  DATA 
i INPUT  STATUS  BYTE  ON  MS  MAGGIE  BYTE  I/O  BD 
> STORE  STATUS  BYTE 

i INPUT  DATA  BYTE  ON  MSCHAR  MAGGIE  I/O  BD 

iSTORE  DATA  BYTE 

jSET  IN  FF  ON  CLOCK  I/O  BOARD 

iRESET  IN  FF  ON  CLOCK  I/O  BD, CAPTURE  TIME < MIN , SEC ) 
i INPUT  STATUS  BYTE  ON  CLOCK  I/O  BD 
i STORE  STATUS  BYTE 

i INPUT  DATA  BYTE  ON  CLOCK  I/O  BOARD 
i STORE  DATA  BYTE 

jCALL  PROGRAM  TO  REARRANGE  TIME  BITS 
i SET  IN  FF  ON  LS  MAGGIE  BYTE  I/O  BOARD 
iRESET  IN  FF  ON  LS  MAGGIE  BYTE  I/O  BD> CAPTURE  DATA 
> INPUT  STATUS  BYTE  ON  LS  MAGGIE  BYTE  I/O  BD 
, STORE  STATUS  BYTE 

> INPUT  DATA  BYTE  ON  LS  MAGGIE  BYTE  I/O  BD 
.STORE  DATA  BYTE 

jSAVE  REGISTER  INFO  IN  STACK 

iSAVE  REGISTER  INFO  IN  STACK 

iLOAD  REG  B  WITH  ADDRESS  OF  NEXT  STATUS  BYTE 

> LOAD  REG  D  WITH  ADDRESS  OF  NEXT  DATA  BYTE 

}GET  LATITUDE  INFO 

>GET  LONGITUDE  INFO 

i GET  HEADING  INFO 

>GET  SELECTED  INFO 

^RESTORE  REGISTER  D 

> RESTORE  REGISTER  B 

i DETERMINE  NORTH, SOUTH, AND  EAST, WEST 
> RETURN  TO  CONTRL 

i  SET  IN  FF  ON  MS  LITTON  BYTE  I/O  BOARD 
iSET  IN  FF  ON  LS  LITTON  BYTE  I/O  BOARD 
iRESET  IN  FF  ON  MS  LITTON  BOARD , CAPTURE  DATA 
i INPUT  STATUS  BYTE  FROM  MS  LITTON  I/O  BD 
i STORE  STATUS  BYTE 
i INCREMENT  STATUS  ADDRESS 
i INPUT  STATUS  BYTE  FROM  LS  LITTON  I/O  BD 
i STORE  STATUS  BYTE 
i INCREMENT  STATUS  ADDRESS 
i INPUT  DATA  BYTE  FROM  MS  LITTON  I/O  BD 
i SAVE  DATA  BYTE  FROM  MS  LITTON  I/O  BD 
i INCREMENT  DATA  ADDRESS 
.INPUT  DATA  BYTE  FROM  LS  LITTON  I/O  BD 
i SAVE  DATA  BYTE  FROM  LS  LITTON  I/O  BD 
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I  NX 

D 

i INCREMENT  DATA  ADDRESS 

WAITLT 

EQU 

$ 

LDA 

CHKFF 

iLOAD 

REG  A  WITH  FLAG  FROM  LS  LITTON  I/O  BD 

ANI 

INFF 

, CHECK 

FOR  RESET  OF  FLAG< IN  FF) 

SUI 

INFF 

JP 

WAITLT 

.WAIT 

FOR  RESET  OF  FLAG 

RET 

i RETURN  TO  PROGRAM  CONTRL 

CQUNT3 

DB 

OH 

.TEMPORARY  STORAGE 

DATA01 

DB 

OH 

>DATA 

BYTE  s SEC  OF  TIME  FROM  CLOCK 

DATA02 

DB 

OH 

i 

. MAGGIE  MS  I/O  ??XX 

DATA03 

DB 

OH 

> 

MAGGIE  LS  I/O  ?’XX 

DATA04 

DB 

OH 

) 

: LATITUDE  S?XDEG  X?.?MIN<S?X  X7.?> 

DATAOS 

DB 

OH 

> 

: LATITUDE  SIGN  NORTH/SOUTH 

DATA06 

DB 

OH 

> 

. LONGITUDE  S?XDEG  X?.?MIN(S?X  X?.?) 

DATA07 

DB 

OH 

> 

s LONGITUDE  SIGN 

DATAOS 

DB 

OH 

i 

.HEADING  UNITS  AND  TENTHS  DEG  ??X.X 

DATA09 

DB 

OH 

> 

.HEADING  NOT  USED 

DATAIO 

DB 

OH 

.i 

.SELECTED  FROM  LITTON  INTERFACE 

DAT  Ai 1 

DB 

OH 

> 

.SELECTED  FROM  LITTON  INTERFACE 

STATOi 

DB 

OH 

> 

.MINUTES  FROM  CLOCK 

STAT02 

DB 

OH 

> 

. MAGGIE-NOT  USED 

STAT03 

DB 

OH 

> 

MAGGIE-LS  I/O  XX?? 

STAT04 

DB 

OH 

> 

.LATITUDE  UNITS  AND  TENTHS  MIN(X.X) 

STATOS 

DB 

OH 

> 

LATITUDE  -USED  TO  SAVE  SIGN 

STATOfc 

DB 

OH 

> 

.LONGITUDE  UNITS  AND  TENTHS  MIN(X.X> 

STAT07 

DB 

OH 

> 

.LONGITUDE  HUNDREDS  AND  SAVE  SIGN 

STAT08 

DB 

OH 

> 

.HEADING-HUNDREDS  AND  TENS  XX?.? 

STAT09 

DB 

OH 

> 

.HEADING-NOT  USED 

STATiO 

DB 

OH 

> 

SELECTED  FROM  LITTON  INTERFACE 

STAT11 

DB 

OH 

> 

SELECTED  FROM  LITTON  INTERFACE 
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INIT2 

EQU 

« 

MVI 

A, 100 

.MOVE  IMMEDIATE  100  TO  A 

ST  A 

TIMER 

.STORE  100  TEN  MILLISEC  IN  TIMER <1  SEC) 

MVI 

A  >2 

.MOVE  IMMEDIATE  2  TO  REG  A 

STA 

COUNT 4 

iSTORE  2  IN  COUNT  FOR  REPEAT  TIME 

RET 

.RETURN  TO  CALLING  PROGRAM 

COUNT 4 

DB 

OH 

> NUMBER  OF  REPEAT  SECONDS 

■ROUTINE  TO  I 

OUTPUT  DATA 

TO  DISPLAY  AND  CTU 

OUTPUT 

EQU 

* 

MVI 

A  ,6 

>MOVE  IMMEDIATE  6  TO  A  REG 

STA 

OUTDEV 

iSET  UP  TO  OUTPUT  TO  DISPLAY  AND  RT  TAPE (110) 

CALL 

GTIOBO 

.GET  A  SYSTEM  BUFFER 

MW  I 

M.200Q 

.CLAIM  BUFFER  WITH  BIT 

PUSH 

H 

■,  SAVE  STATUS  POINTER 

OCX 

H 

>  DECREMENT 

MVI 

M  ,  377Q 

i SET  UP  RECORD  TRANSFER (-1) 

DCX 

H 

■,  DECREMENT 

MVI 

M.36 

j  SET  LENGTH  OF  RECORD  TO  36 

XCHG 

■,  SWAP  H4L  AND  D4E 

CALL 

GETPTR 

>  GET  BUFFER  ADDRESS 

CALL 

MOVDAT 

jMOVE  DATA  INTO  BUFFER  OBTAINED  BY  GTIOBO 

POP 

D 

^RESTORE  STATUS  POINTER 

LXI 

H.XFRLIM 

> TRANSFER  ONE  RECORD 

MVI 

M.-l 

CALL 

PUTIO 

.OUTPUT  THE  RECORD 

XCHG 

> SWAP  H4L  AND  D6E  REGISTERS 

MVI 

M.  0 

RELEASE  BUFFER 

RET 

i RETURN  TO  CALLING  PROGRAM  CONTRL 

DATAWD 

DB 

OH 

i TEMPORARY  STORAGE 

STATUS 

DB 

OH 

> TEMPORARY  STORAGE 

.ROUTINE  TO 

MOVE  DATA  TC 

1  BUFFER 

MOVDAT 

EQU 

* 

MVI 

A, 43 

iMOVE  IMMEDIATE  43  TO  REGISTER  A 

STA 

COUNT 1 

.STORE  IT 

LXI 

B.ASBCDi 

jLOAD  IMMEDIATE  ADDRESS  OF  FIRST  ASCII  CHAR 

SAVNOR 

EQU 

« 

LDAX 

B 

>LOAD  ASCII  CHARACTER  INTO  REGISTER  A 

MOV 

M.A 

i MOVE  CHARACTER  TO  BUFFER  FOR  OUPUT 

I  NX 

H 

) INCREMENT  BUFFER  ADDRESS 

INX 

B 

> INCREMENT  ASCII  DATA  ADDRESS 

LDA 

COUNT1 

iLOAD  COUNT  VALUE  IN  REG  A 

DCR 

A 

> DECREMENT  THE  COUNT 

STA 

COUNT 1 

.STORE  THE  COUNT 

JP 

SAVMOR 

>  JUMP  ON  POSITIVE  TO  MOVE  MORE  ASCII  CHAR 

STC 

>FINISHED  SET  CONTROL 

RET 

> RETURN  TO  CALLING  PROCRAM  OUTPUT 

COUNT! 

DB 

OH 

i CHARACTER  COUNT 
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MONITOR  ROUTINE  FOR  TIMING  DATA  INPUT 


MONIT 

EOU 

« 

LXI 

H, TIMER 

>l_OAD  IMMEDIATE  ADDRESS  OF  TIMER 

DCR 

M 

i DECREMENT  TIMER 

RET 

.RETURN  TO  TERMINAL  EXEC 

ROUTINE  TO  CHECK  FOR  TIMEOUT 

CHTIMO 

EQU 

« 

LDA 

TIMER 

jLOAD  REG  A  WITH  VALUE  STORED  AT  LOC  TIMER 

ORA 

A 

> 

TP 

RETURN 

i IF  TIMER  IS  POSITIVE  RETURN  TO  TERMINAL  EXEC 

LDA 

C0UNT4 

> TIMER  NEG-LOAD  REG  A  WITH  REPEAT  TIMER  COUNT 

DCR 

A 

> DECREMENT  COUNT 

STA 

COUNT4 

i STORE  COUNT 

JM 

CONTRL 

IF  REPEAT  IS  NEG  TIME  TO  EXECUTE  MAGGIE  PROGRAM 

MVI 

A, 100 

> THREE  SECONDS  HAVE  NOT  OCCURRED  RESET  i  SEC  TIMER 

STA 

TIMER 

.SAVE  1  SEC  IN  TIMER 

JMP 

RETURN 

■,  RETURN  TO  TERMINAL  EXEC 

.CONTROL  ROUTINE  TO  GET 

AND  PROCESS  DATA 

CONTRL 

EQU 

* 

CALL 

INIT2 

jCALL  INITIALIZATION  ROUTINE ( RESCHEDULES  PROGRAM) 

CALL 

INPUT 

i GET  THE  DATA 

CALL 

PROCES 

>PROCESS  THE  DATA 

CALL 

OUTPUT 

> OUTPUT  THE  DATA 

RET 

.RETURN  TO  CHTIMO 

jDATA  PROCESSING  ROUTINE 

PROCES 

EQU 

S 

LXI 

B.STAT01 

> LOAD  IMMEDIATE  ADDRESS  OF  FIRST  STATUS  BYTE 

LXI 

H.DATA01 

> LOAD  IMMEDIATE  ADDRESS  OF  FIRST  DATA  BYTE 

LXI 

D , ASBCD1 

jLOAD  IMMEDIATE  ADDRESS  OF  FIRST  CHAR  BYTE 

MVI 

A,  10 

> MOVE  IMMEDIATE  NUMBER  OF  WORDS  TO  PROCESS  TO  A  REG 

STA 

COUNTS 

i STORE  NUMBER  OF  WORDS 

CVTMOR 

EQU 

* 

LDAX 

B 

jLOAD  A  WITH  STATUS  BYTE 

STA 

STATUS 

jSTORE  IT  TEMPORARILY 

CALL 

REVSTA 

i COMPLEMENT  STATUS  BITS  0  AND  l(XXXXXXCC) 

LDA 

STATUS 

>LDA  REG  A  WITH  COMPLEMENTED  STATUS  BYTE 

STAX 

B 

iSAVE  IT  IN  STATUS  LOCATION 

STA 

CNBYTE 

iSAVE  STATUS  BYTE  IN  TEMP  LOCATION 

CALL 

BCD2AS 

i CONVERT  STATUS  2  CHAR  BCD  BYTE  TO  2  ASCII  CHAR 

LDA 

ASMSB 

iLOAD  MOST  SIGNIFICANT <MS)  ASCII  CHAR  TO  REG  A 

STAX 

D 

jSTORE  CHAR  IN  ASCII  BUFFER  FOR  OUTPUT 

I  NX 

D 

> INCREMENT  ASCII  STORAGE  LOCATION 

LDA 

ASLSB 

>LOAD  LEAST  SIGNIFICANT(LS)  ASCII  CHAR  IN  REG  A 

STAX 

D 

> STORE  CHAR  IN  ASCII  BUFFER  FOR  OUTPUT 

INX 

D 

; INCREMENT  ASCII  BUFFER  ADDRESS 

XCHG 

j  SWAP  REGISTERS  H4L  AND  DIE 

LDAX 

D 

jLOAD  DATA  BYTE  IN  REG  A 

STA 

DATAWD 

j STORE  TEMPORARILY 

CALL 

CMPDAT 

i COMPLEMENT  THE  DATA  BYTE 

LDA 

DATAWD 

jLOAD  THE  DATA  BYTE  INTO  THE  A  REG 

STAX 

D 

i STORE  THE  DATA  BYTE  INTO  DATA  LOCATION 

XCHG 

>  SWAP  H4L  AND  D4E 

STA 

CNBYTE 

jSTORE  DATA  BYTE  TEMPORARILY 

CALL 

BCD2AS 

> CONVERT  BYTE  INTO  TWO  ASCII  CHARACTERS 

LDA 

ASMSB 

jLOAD  MS  ASCII  CHAR  INTO  REG  A 

STAX 

D 

jSTORE  CHAR  IN  ASCII  OUTPUT  BUFFER 

INX 

D 

j INCREMENT  ADDRESS  OF  ASCII  OUTPUT  BUFFER 

LDA 

ASLSB 

jLOAD  LS  ASCII  CHAR  INTO  REG  A 

STAX 

D 

jSTORE  CHAR  IN  ASCII  OUTPUT  BUFFER 

INX 

D 

j INCREMENT  ADDRESS  OF  STATUS  BYTE 

INX 

H 

.INCREMENT  ADDRESS  OF  DATA  BYTE 

INX 

B 

.INCREMENT  ADDRESS  OF  ASCII  OUTPUT  BUFFER 

LDA 

COUNT2 

j COUNT  TO  REG  A 

OCR 

A 

.DECREMENT  COUNT 
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STA 

CPUNT2 

i STORE  COUNT 

JP 

CVTMOR 

^CONVERT  MORE  BYTES  TO  ASCII  EQUIV  IF  POSITIVE 

STC 

.SET  CONTROL 

RET 

> RETURN  TO  CALLING  PROGRAM  CONTRL 

COUNTS 

OB 

OH 

; COUNT  FOR  CONVERTING  ALL  STATUS  AND  DATA  BYTES  TO  ASC 

CNBYTE 

OB 

OH 

^temporary  storage 

4 
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, ROUTINE  TO 

REARRANGE 

STATUS  WORD  BITS 

REVSTA 

EQU 

$ 

LDA 

STATUS 

; LOAD  STATUS  BYTE  INTO  REG  A 

CMA 

> COMPLEMENT  THE  BYTE 

ANI 

THREE 

iMASK  OFF  BITS  0  AND  i 

STA 

REVBIT 

{. STORE  IT 

PUSP 

1  H 

i SAVE  CURRENT  ADDRESS  H  REG 

LXI 

H,  REVBIT 

,LOAD  IMMEDIATE  ADDRESS  REVBIT 

LDA 

STATUS 

{LOAD  STATUS  BYTE  INTO  REG  A 

ANI 

ZER03 

.MASK  OFF  BITS  2  THRU  7 

ORA 

M 

i COMBINE  BITS  0,1  AND  2-7 

STA 

STATUS 

> STORE  NEW  STATUS  BYTE 

POP 

H 

{RESTORE  H  REGISTER 

RET 

{RETURN  TO  CALLING  PROGRAM  PRQCES 

REVBIT 

DB 

OH 

{TEMPORARY  STORAGE  OF  STATUS  BYTE 

> ROUTINE  TO 

COMPLEMENT 

DATA  WORD 

CMPDAT 

EQU 

* 

LDA 

DATAWD 

{LOAD  A  WITH  DATA  BYTE 

CMA 

{COMPLEMENT  DATA  BYTE 

STA 

PATAWD 

{STORE  IT 

RET 

{RETURN  TO  CALLING  PROGRAM  PROCES 

{BCD  TO 

ASCII  CONVERSION  ROUTINE 

BCD2AS 

EQU 

♦ 

LDA 

CNBYTE 

{LOAD  REG  A  WITH  DATA  BYTE  IN  BCD  FMT 

RRC 

{ROTATE  RIGHT  FOUR  TIMES 

RRC 

> 

RRC 

> 

RRC 

> 

ANI 

MASK  1 

{MASK  OFF  BCD  CHAR 

AC  I 

30H 

{ADD  30  HEX  TO  CHAR  TO  CONVERT  TO  ASCII 

STA 

ASMSB 

{STORE  MOST  SIGNIFICANT  ASCII  CHAR 

LDA 

CNBYTE 

{LOAD  A  WITH  DATA  BYTE  IN  BCD  FMT 

ANI 

MASKi 

{MASK  OFF  BCD  CHARACTER 

ACI 

3  OH 

{ADD  30  HEX  TO  CHAR  TO  CONVERT  TO  ASCII 

STA 

ASLSB 

{STORE  LEAST  SIGNIFICANT  ASCII  CHAR 

RET 

{RETURN  TO  CALLING  PROGRAM  PROCES 

ASMSB 

DB 

0 

>TEMP  STORAGE 

ASLSB 

DB 

0 

{TEMP  STORAGE 

ROUTINE  TO 

SET  UP  BITS  FOR  NS  AND  EW 

NSEW 

EQU 

♦ 

LDA 

STAT04 

{LOAD  REG  A  WITH  LATITUDE  STATUS  BYTE 

RRC 

{ROTATE  RT  2  BITS 

RRC 

{THESE  ARE  THE  SIGN  BITS 

ANI 

MASKC 

{MASK  OFF  THESE  SIGN  BITS 

CMA 

{COMPLEMENT  THE  SIGN  BITS 

STA 

DATA05 

>SAVE  THE  BITS  IN  THE  LAST  BYTE  OF  THE  LAT  WORD 

LDA 

STAT04 

{LOAD  REG  A  WITH  LATITUDE  STATUS  BYTE 

ANI 

MASK  4 

{MASK  OFF  DEGREES  LATITUDE  WITHOUT  SIGN 

STA 

STAT04 

{STORE  DEG  LAT  IN  STATUS  BYTE 

LDA 

STAT06 

>LOAD  REG  A  WITH  LONGITUDE  BYTE 

RRC 

, ROTATE  RT  2  BITS 

RRC 

{GET  SIGN  BITS 

ANI 

MASKC 

{MASK  OFF  SIGN  BITS 

CMA 

{COMPLEMENT  SIGN  BITS 

STA 

DATA07 

{STORE  SIGN  BITS  IN  LAST  2  CHAR  OF  LONGITUDE  WORD 

LDA 

STAT06 

{LOAD  REG  A  WITH  LONG  BYTE 

ANI 

MASK  4 

{MASK  OFF  DEG  LONG  WITHOUT  SIGN 

STA 

STAT0& 

{STORE  DEG  LONG  IN  STATUS  BYTE 

LDA 

STAT08 

{LOAD  REG  A  WITH  HEADING  BYTE 

RRC 

{ROTATE  RT  2  BITS 

RRC 

{GET  SIGN  BITS 

ANI 

MASKC 

{MASK  OFF  SIGN  BITS 

CMA 

{COMPLEMENT  THE  SIGN  BITS 

3TA 

DATA09 

{STORE  SIGN  BITS  IN  LAST  BYTE  OF  HEADING  WORD 
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LDA  ST  AT  08  jl.OAD  REG  A  WITH  HEADING  BYTE 

ANI  MASK  4  ,MASK  OFF  THE  BYTE  UITHOUT  SIGN 

STA  S TAT 08  ,SAVE  HEADING  IN  STATUS  BYTE 

RET  iRETURN  TO  CALLING  PROGRAM  PROCES 

, TERMINAL  AIRMAGNETICS  SYSTEM  PART  2.V131  12/04/79 
.THIS  ROUTINE  REARRANGES  TIME  BITS 


MINI 

EQU 

77Q 

> MASK  FOR  MINUTES  OF  TIME 

SEC1 

EQU 

177Q 

.MASK  FOR  SECONDS  OF  TIME 

SEC2 

EQU 

200Q 

; MASK  FOR  MINUTES  OF  TIME  SECOND  WORD 

TIMBIT 

EQU 

* 

LDA 

DATA01 

> LOAD  REG  A  WITH  SECONDS  OF  TIME 

CMA 

COMPLEMENT  DATA 

STA 

DATA01 

, STORE  IT 

LDA 

DATA01 

> 

ANI 

SEC1 

>HASK  OFF  SECONDS  OF  TIME 

STA 

DAT AC 1 

> STORE  IT 

LDA 

DATA01 

jLOAD  REG  A  WITH  SEC  DATA  BYTE 

ORA 

A 

i 

ANI 

SEC2 

iMASK  OFF  BIT  ASSOCIATED  WITH  MINUTES ( MSBIT ) 

ORA 

A 

i 

RLC 

jROTATE  BIT  LEFT  ONCE, PUTS  IT  AT  BIT  ZERO 

STA 

DATAC2 

> STORE  MINUTES  BIT 

LDA 

DAT AC i 

jLOAD  REG  A  WITH  SEC  BYTE 

CMA 

COMPLEMENT  BYTE 

STA 

DATA01 

iRETURN  BYTE  TO  DATA  WORD 

LDA 

STAT01 

iLOAD  A  WITH  MINUTES  BYTE 

STA 

STATUS 

iSTORE  TEMP 

CALL 

REVSTA 

, REVERSE  BITS  0  AND  1 

LDA 

STATUS 

jLOAD  REG  A  WITH  MINUTES  BYTE 

STA 

STAT01 

> STORE  MINUTES  IN  STATUS  BYTE 

LDA 

STAT01 

> 

ORA 

A 

> 

ANI 

MINI 

j MASK  OFF  MIN  FROM  STATUS  BYTE 

ORA 

A 

> 

RLC 

, ROTATE  LEFT  ONCE > GET  READY  TO  FORM  NEW 

MIN  WORD 

ORA 

A 

> 

STA 

STAT01 

jSAVE.  MIN  SHIFTED 

LXI 

H, DAT ACE 

! jLOAD  IMMEDIATE  ADDRESS  OF  MINUTES  BIT 

LDA 

STATOi 

jLOAD  REGISTER  A  WITH  MIN  BYTE 

ADD 

M 

j ADD  MINUTES  BIT  TO  MIN  BYTE 

STA 

STATOi 

j STORE  FULL  MINUTES  WORD  IN  STATUS  BYTE 

LDA 

STATOI 

> 

STA 

STATUS 

iSTORE  TEMP 

CALL 

REVSTA 

j PLACE  MINUTES  BYTE  IN  USUAL  FORMAT 

LDA 

STATUS 

jLOAD  MINUTES  BYTE  INTO  REG  A 

STA 

STATOI 

jSTORE  MINUTES  BYTE  INTO  STATUS  BYTE  IN 

RiCONSTR  FMT 

RET 

jRETURN  TO  CALLING  PROGRAM  INPUT 

DAT AC 1 

DB 

OH 

, TEMPORARY  LOCATION 

DATAC2 

DB 

OH 

j TEMPORARY  LOCATION 

TEMP  1 0 

DB 

OH 

> TEMPORARY  LOCATION-NOT  USED 

, SETUP 

OUTPUT  WORDS 

ASBCD1 

DS 

18 

j  ASCII  FILE  SET  UP  FOR  OUTPUT 

ASBC19 

DS 

B 

> 

ASBC27 

DS 

8 

> 

ASBC3S 

OS 

8 

> 

ASBC43 

DS 

8 

} 

END 
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APPENDIX  II 


OPERATING  INSTRUCTIONS  FOR  THE  TERMINAL  MAGNETICS  FIELD 
DATA  ACQUISITION  SYSTEM 


1.  Turn  on  power  to  the  terminal,  Litton  Interface  and  Clock. 

2.  Set  the  thumbwheel  switch  on  the  Litton  Interface  to  "0". 

Explanation:  By  setting  the  select  code  on  "0"  Latitude  will 
be  selected  and  displayed  on  the  interface.  The 
terminal  receives  latitude  information  from  the 
di splay. 

3.  Insert  cartridge  tape  marked  Debugger/Assembler  in  left  tape 
drive  of  terminal. 

4.  Press  the  key  marked  READ  on  the  terminal.  Wait  for  completion. 

Explanation:  The  first  record  of  the  Debugger/Assembler  tape 
will  be  displayed. 

5.  Press  the  key  marked  f2  on  the  terminal.  Wait  for  completion. 

Explanation:  By  pressing  f2  the  second  record  on  the  Debugger/ 

Assembler  tape  will  be  loaded  into  the  terminal  memory. 
The  message  "0K>"  will  be  displayed  on  the  terminal. 

6.  Remove  the  Debugger/Assembler  tape  from  left  drive  and  insert  the 
tape  marked  Magnetics  Version  13  Binary. 

Explanation:  This  is  the  binary  magnetics  program  to  be  loaded 
into  terminal  memory. 

7.  Type  the  characters  "L"  and  "CR"  (Carriage  Return) .  Wait  for 
completion. 

Explanation:  This  sequence  will  load  the  binary  program  into 

terminal  memory.  The  message  "HP264X  ASSEMBLER  V2.0" 
will  appear  on  the  terminal  display  followed  by  an 
"0K> "  prompt. 
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V. 


» 


8.  Place  a  blank  cartridge  in  the  right  terminal  drive. 

Explanation:  The  data  will  be  recorded  on  this  tape  cartridge. 

The  cartridge  should  be  unprotected  by  moving  the 
protect  lever  to  the  left  position.  The  tape  cart¬ 
ridge  should  be  labeled  by  hand.  The  recommended 
labeling  is  day  of  year  and  starting  hour  of  tape. 

9.  Type  "/9169"  then  "CR"  on  the  terminal. 

Explanation:  An  instruction  in  location  9169  .must  be  modified 

so  that  control  will  be  transferred  from  the  terminal 
executive  software  to  the  magnetics  program.  An  "87" 
will  appear  on  the  display. 

10.  Type  "601A"  then  "CR"  on  the  terminal. 

Explanation:  The  starting  location  of  the  magnetics  program  is 

601A  .  An  "0"  will  appear  on  the  display. 

(16) 

11.  Type  (colon)  on  the  terminal. 

Explanation:  The  " : "  will  terminate  the  modification  process.  An 
"0K>"  will  appear  on  the  terminal  display. 

12.  Press  the  RESET  button  on  the  terminal  only  once. 

Explanation:  Pressing  the  RESET  button  once  forces  a  transfer  in 
the  terminal  executive  to  the  magnetics  program. 

The  program  will  start  execution. 
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